home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / fp / ifp_unix.lzh / ifp / fproot / demo / Hanoi < prev    next >
Encoding:
Text File  |  1986-10-03  |  422 b   |  23 lines
  1. (*
  2.  * Hanio - towers of Hanoi solver
  3.  *
  4.  * <N Names> : Hanoi -> <<src dst> ...<src dst>>
  5.  *
  6.  * where N is number of rings and names is a triple of post names
  7.  * <source temporary dest>.
  8.  *
  9.  * Example:
  10.  *    <2 <a b c>> : Hanoi -> <<a,b>,<a,c>,<b,c>>
  11.  *)
  12.  
  13. DEF Hanoi AS
  14.    {[n,[a,b,c]] := id}
  15.    IF [n,#0]|= THEN []
  16.    ELSE [
  17.       [n|sub1, [a,c,b]] | Hanoi,
  18.       [[a,c]],
  19.       [n|sub1, [b,a,c]] | Hanoi 
  20.    ] | cat
  21.    END;
  22.  
  23.